home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 6 / FM Towns Free Software Collection 6.iso / game / souko / souko.def < prev    next >
Text File  |  1993-07-08  |  3KB  |  113 lines
  1. ======== souko.def (v1.4) ========
  2.  
  3. * M マクロ
  4.  
  5. 70  @F "ファイル選択"
  6.     ?. #O &?(pi) "*.SOK" #m
  7. :A    (s)?{&c >A} (r<0)?.
  8.     >>
  9.  
  10. 71  @G "Ｖｚ倉庫"
  11.     ep[,ew[,dc[,dt[,du[,mi[, ep+,ew-,dc-,dt-,du-,mi+,n-,
  12. :O    &01
  13.     g-, &x(23) &y(20)
  14.     !01 (r<0)?>Z
  15.     (r)>?{>N >R >S >E >Y}
  16. :N    n++, f="全部、終りました。おめでとう！", >R
  17. :S    &g("何番の倉庫？") n=r,
  18. :R    &s (n)??n+, #^ &02
  19.     #c (r)?{#@ &d &m("そんな倉庫は無いぞ！") >O}
  20.     #x #< &03 &d &> #@ >O
  21. :E    &73 >O
  22. :Y    &d &m("ご苦労様でした。また、たのむよ。") #C
  23. :Z    mi],du],dt],dc],ew],ep], #]
  24.  
  25. 72    ""
  26.     &s
  27. :S    #d (cd!='♀')?>S &d #?
  28.     &m("終ったら［ＥＳＣ］キーを押してね！")
  29. :A    x=lx, y=ly, &p c=r,
  30.     (c==#d)?{a=x+2, d=x+4, b=e=y, >B}
  31.     (c==#s)?{a=x-2, d=x-4, b=e=y, >B}
  32.     (c==#x)?{a=d=x, b=y+1, e=y+2, >B}
  33.     (c==#e)?{a=d=x, b=y-1, e=y-2, >B}
  34.     (c==#r)?{#39 #< #r #f &n n=r, >^}
  35.     (c==#c)?{#39 #< #c #f &n m=r, (m==-1)?{#r#r}?n=m, >^}
  36.     (c=='E')?{&01 &02 #c #x &03 g-, >74}
  37.     (c==#[)?>J
  38.     >A
  39. :B    &x(a) &y(b)
  40.     (cd=='　')?>C
  41.     (cd=='・')?>D
  42.     (cd=='○')?{
  43.         &x(d) &y(e)
  44.         (cd=='　')?>E
  45.         (cd=='・')?>F
  46.         }
  47.     (cd=='◎')?{
  48.         &x(d) &y(e)
  49.         (cd=='　')?>G
  50.         (cd=='・')?>H
  51.         }
  52.     &x(x) &y(y) >A
  53. :C    &x(x) &y(y) (g)?'・'?'　' g-, >I
  54. :D    &x(x) &y(y) (g)?'・'?'　' g+, >I
  55. :E    &x(x) &y(y) (g)?'・'?'　' g-, &x(d) &y(e) '○' >I
  56. :F    &x(x) &y(y) (g)?'・'?'　' g-, &x(d) &y(e) '◎' >I
  57. :G    &x(x) &y(y) (g)?'・'?'　' g+, &x(d) &y(e) '○' >I
  58. :H    &x(x) &y(y) (g)?'・'?'　' g+, &x(d) &y(e) '◎'
  59. :I    &x(a) &y(b) '♀' #s >A
  60. :J    &s #39 #< #x k+,
  61. :U    #d (cd=='○')?k-, (cd!='#')?>U
  62.     &d (k)?>M
  63.     &m("まだ、終ってないじゃないか！") &b(20) &w(100) .
  64. :M    &m("第 %d 番倉庫終了！ ごくろうさん。",n) &w(100) .
  65.  
  66. 1:    &s #L (s==4)?'n' #P #m &d
  67. 2:    #F '#' &?("%02d",n) #m
  68.  
  69. 73  @E "面データの編集"
  70.     ?.
  71.     mi[,ep[,dc[, mi+,ep+,
  72.     #^ &03 #c #x &74 #@
  73.     dc],ep],mi],
  74.  
  75. 74    ""
  76.     dc+, &d a="■・○◎　", b='■', d-, &01
  77. :A    &p c=r,
  78.     (c==#>)?{&o(b) >A}
  79.     (c==#<)?{&o(b) #s #s >A}
  80.     (c==#39)?{&o(b) #s #e >A}
  81.     (c==#40)?{&o(b) #s #x >A}
  82.     (c=='k')?{'■' >A}
  83.     (c=='o')?{'○' >A}
  84.     (c=='O')?{'◎' >A}
  85.     (c=='.')?{'・' >A}
  86.     (c=='p')?{'♀' >A}
  87.     (c==' ')?{'　' >A}
  88.     (c=='d')?{#> #s (cd=='　')?{#> #16} #x >A}
  89.     (c=='i')?{mi-, '　' mi+, #s #x >A}
  90.     (c=='I')?{#n (39){'　'} #< >A}
  91.     (c=='h')?{&> >A}
  92.     (c=='c')?{d++, (d>4)?d-, b=a..d, b!!, &> >A}
  93.     (c=='G')?{(mr==1)?{#S #m} #r ky=0, &d #] #f &n n=r, #x #< dc-, >72}
  94.     (c==#[)?>Z
  95.     &o(c) >A
  96. :Z    &m("編集終り") dc-, #] (mr!=1)?. #S
  97. :B    (s)?{&c >B}
  98.  
  99. 1:    &m("^[矢印]:%c  [c]:変更  [o]:○  [O]:◎  [.]:・  [p]:♀  [ ]:消す  [Esc]:終了",b)
  100. 3:    #F '#' #m
  101.  
  102. * Pop up menu
  103.  
  104. 1    "どうする？",24,5
  105.     "N 次の倉庫をかたづける"
  106.     "R 今の倉庫をもう一度"
  107.     "S 倉庫を指定する"
  108.     "E 面データの編集"
  109.     "Q おしまい"
  110.  
  111. *
  112. ======== End of souko.def ========
  113.